﻿Public Class Autor : Implements IEquatable(Of Autor)
    Public Property CodAutor As Integer
    Public Property Nombre As String
    Public Property Apellidos As String
    Public Property CodLibro As List(Of String)

    Public Sub New()

    End Sub

    Public Sub New(ByVal nom As String)
        Me.Nombre = nom
    End Sub

    Public Sub New(ByVal cod As Integer, nom As String, ByVal ape As String)
        Me.CodAutor = cod
        Me.Nombre = nom
        Me.Apellidos = ape
    End Sub

    Public Overrides Function ToString() As String
        Return Me.Nombre
    End Function
    Public Function Equals1(other As Autor) As Boolean Implements IEquatable(Of Autor).Equals
        Return Me.Nombre = other.Nombre
    End Function

End Class
